home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
pc_board
/
bbsfind1.zip
/
PCBTEST.BAT
< prev
next >
Wrap
DOS Batch File
|
1992-04-26
|
2KB
|
52 lines
ECHO THIS FILE WILL NOT RUN IN THIS CONDITION!!
ECHO YOU MUST DELETE THE COMMENTS FIRST!!
goto end
echo off
@echo ■ Checking for included FILE_ID.DIZ for description
if %2 == UPLOAD pcbdesc %1 %3
whatext %1 -> finds the dos file extention for the U/L'd file
if errorlevel == 6 goto arj
if errorlevel == 1 goto zip
goto end
:zip -> It's a ZIP!
echo ■ Testing ZIP file integrity -> Tell the user what's going on
@pkunzip -t %1 > pcbfail.txt -> send results of test to user
@if errorlevel == 1 goto end -> if ZIP fails CRC checks quit now.
@ren %1 f:\pcb\privupld\$$$.zip >NUL -> Rename to prevent false alarms
@f:\tc\bbsfind %1 >NUL -> Check for duplications with any ext
@ren f:\pcb\privupld\$$$.zip %1 >NUL -> Rename file back to original name
@if errorlevel == 1 goto exists -> File exists, OH NO!
@del pcbfail.txt >NUL -> File is new GOODY!
goto end
:arj -> The same comments apply here as for
@echo ■ Testing ARJ file integrity -> the ZIP area.
@arj -t %1 > pcbfail.txt
@if errorlevel == 1 goto end
@ren %1 f:\pcb\privupld\$$$.arj >NUL
@f:\tc\bbsfind %1 >NUL
@ren f:\pcb\privupld\$$$.arj %1 >NUL
@if errorlevel == 1 goto exists
@del pcbfail.txt >NUL
@goto end
:exists -> Tell the user they uploaded a duplicate
Echo File already Exists under another extention > pcbfail.txt
del %1 -> Kill the recently uploaded file (it's a dupe anyway!)
:end